home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / 6480TERM.ARC / TERM 6480+ (.txt) next >
Commodore BASIC  |  2019-04-13  |  12KB  |  423 lines
  1. 5 REM"[141][147]
  2. 10 [143]" (null)HANX TO;
  3. 15 REM"          [211]COTT [199]ARNIK
  4. 20 [143]"          MID$OHN (null)IVETT
  5. 25 REM"          [202]IM [203]URATOMI
  6. 30 [143]" (null)OLKS (null)ERM 6480 VERSION RIGHT$RIGHT$+
  7. 33 REM"[141]LIST55-:[145][145][145]"(null)
  8. 34 POKE775,200:POKE808,239:POKE808,225
  9. 35 :
  10. 45 IFPEEK(49152)<>169THENGOSUB985
  11. 50 IFPEEK(49152)<>169THENLOAD"TERM.C1.X",8,1
  12. 55 OPEN5,2,5,CHR$(6)+CHR$(.)
  13. 60 POKE56590,65
  14. 65 OPEN1,8,15:GET#5,A$:CS=1.02273E6:BS=255:BS$="255":BU$="450 ":V7=1:GOSUB350
  15. 70 TX=0    :REM TEXT COLOR
  16. 75 BC=11   :REM BORDER COLOR
  17. 80 SC=12   :REM SCREEN COLOR
  18. 85 M1=56588:REM 6480 COMMAND CHNL
  19. 90 TY$="PSP":XM$(0)="[208][213][206][212][197][210]":XM$(1)="[216][205][207][196][197][205]":OH=663
  20. 95 DT$(0)="[208]ULSE":DT$(1)="[212]ONE 
  21. 98 [151]53280,BC:[151]53281,SC:[151]646,TX
  22. 100 T$(1)[178]"(null)(null)(null)CHR$":T$(2)[178]"(null)VAL(null)":T$(3)[178]"(null)(null)(null)(null)":[139]ZX[178]0[167]2000
  23. 105 [151]53280,BC:[151]53281,SC:[151]646,TX
  24. 110 A$[178][199](142):[153]"LOAD";:A$[178]"6480
  25. 115 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  26. 120 PRINT"[221]   [214]OLKS [212]ERM 6480  -  [199]UILL [199]RACE    [146][221]";
  27. 125 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  28. 126 PRINT"[221][194]LOCK [211]IZE : "BS$"  [221] [194]AUD [210]ATE : "BU$"  [221]";
  29. 127 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  30. 130 PP$[178]"   (null)OLKS (null)ERM 6480  -  CHR$UILL CHR$RACE    
  31. 135 PRINTSPC(11)"[208]ROTOCOL:"XM$(XM)
  32. 140 PRINT
  33. 145 PRINTSPC(9)"[212] - [212]ERMINAL MODE
  34. 150 [153][166]9)"CHR$ - CHR$RAPHIC (null)ERMINAL
  35. 155 PRINTSPC(9)"[213] - [213]PLOAD A FILE
  36. 160 [153][166]9)"STR$ - STR$WNLOAD A FILE
  37. 165 PRINTSPC(9)"[193] - [193]UTODIAL [214][205] 6480
  38. 170 [153][166]9)"$ - STR$ISK ASCUNCTIONS
  39. 173 PRINTSPC(9)"[201] - [201]NFORMATION
  40. 175 [153][166]9)"LEN - LENHANGE LENOLORS
  41. 180 PRINTSPC(9)"[208] - [212]OGGLE [208]ROTOCOL
  42. 185 [153][166]9)"PEEK - (null)OGGLE PEEKAUD (null)ATE
  43. 190 PRINTSPC(9)"[211] - [195]HANGE [194]LOCK [211]IZE
  44. 195 [153][166]9)"LEFT$ - LEFT$ANG UP
  45. 200 PRINTSPC(9)"[197] - [197]XIT
  46. 210 [161]A$:[139]A$[178]""[167][141]1170:[137]210
  47. 215 [139]A$[178]"C"[167]1085
  48. 220 [139]A$[178]"G"[167]485
  49. 223 [139]A$[178]"I"[167]2000
  50. 225 [139]A$[178]"T"[167]470
  51. 230 [139]A$[178]"$"[167]1575
  52. 235 [139]A$[178]"A"[167]575
  53. 240 [139]A$[178]"S"[167][141]285:[137]105
  54. 245 [139]A$[178]"D"[167]1315
  55. 250 [139]A$[178]"U"[167]1240
  56. 255 [139]A$[178]"P"[167]315
  57. 260 [139]A$[178]"B"[167]400
  58. 265 [139]A$[178]"H"[167][151]56579,230:[151]56577,32:[151]M1,14:[151]56590,65:[137]210
  59. 270 [139]A$[178]"E"[167]280
  60. 275 [137]210
  61. 280 [153]" ATNRE (null)OU (null)URE ? ";
  62. 281 [161]BY$:[139]BY$[178]""[167]281
  63. 282 [139]BY$[179][177]"Y"[167]105
  64. 283 [153]BY$:[158]64738
  65. 285 [153]" (null)EW PEEKLOCK (null)IZE ? ";:[141]520
  66. 290 BS[178][197](I$):[139]BS[178]0[167]BS[178]255:BS$[178]"255":[142]
  67. 295 [139]BS[179]40[167]BS[178]40:BS$[178]"040":[142]
  68. 300 [139]BS[177]255[167]BS[178]255:BS$[178]"255":[142]
  69. 305 [139][195](I$)[179]3[167]BS$[178]"0"[170]I$:[142]
  70. 310 BS$[178]I$:[142]
  71. 315 [139]XM[178]1[167]XM[178]0:[137]110
  72. 320 XM[178]1:[137]110
  73. 325 T[178]TI
  74. 330 [139]TI[179]T[170]DL[167]330
  75. 335 [142]
  76. 345 C[178][194](53281):[151]53281,[194](646):[151]53281,C:[142]
  77. 350 S[178][197](BU$):HS[178]0:[139]S[178]300[167]BU$[178]"450 ":S[178]450:[151]659,0:[137]370
  78. 360 [139]S[178]450[175]V7[178]1[167]BU$[178]"1200":S[178]1200:HS[178]1:[151]659,8:[137]370
  79. 365 BU$[178]"300 ":S[178]300:[151]659,6
  80. 370 RC[178]CS[173]S:[141]390:[151]683,LO:[151]684,HI
  81. 375 [139]S[178]450[167]RC[178]CS[173]S[172].982:[141]390
  82. 380 [139]S[178]1200[167]RC[178]CS[173]S[172].966:[141]390
  83. 385 [151]665,LO:[151]666,HI:RC[178]CS[173]S[173]2[171]100:[141]390:[151]661,LO:[151]662,HI:[142]
  84. 390 HI[178][181](RC[173]256):LO[178][181](RC[171]HI[172]256):[142]
  85. 395 ZZ[178]1:[151]M1,70:[151]56577,32:[142]
  86. 400 [141]350:[137]105
  87. 405 :
  88. 410 [153]"LOAD";
  89. 415 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
  90. 420 C[178][194](53281):[151]53281,[194](646):[151]53281,C:[142]
  91. 425 I[178]0:[159]9,8,0,"$0:"[170]F$:[161]#9,A$,A$
  92. 430 N$[178][199](0):[161]#9,A$,A$:[139]ST[167][160]9:[142]
  93. 435 I[178]I[170]1:[161]#9,A$,B$:X[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256
  94. 440 [161]#9,A$:[139]ST[167]460
  95. 445 [139]A$[179][177][199](34)[167]440
  96. 450 [161]#9,A$:I$[178]I$[170]A$:[139]A$[179][177]""[167]450
  97. 455 [139]I[179]2[167]I$[178]"":[137]430
  98. 460 [160]9:[139][195](I$)[179]20[167]E[178]1:[142]
  99. 465 [142]
  100. 470 [153]"LOAD(null)RESS 'LEFT$(null)(null)VAL' FOR MAIN MENU
  101. 475 PRINT"[212]ERMINAL [205]ODE":POKE653,0
  102. 480 SYS49173:SYS49167:GOTO105
  103. 485 POKE53280,BC:POKE53281,0:POKE646,1
  104. 490 PRINTCHR$(142):PRINT"[147]  GRAPHIC TERMINAL   (CTRL - I = UPPER)
  105. 491 [153]"'THENLIST_WAITFN' EXITS TO MENU  (CTRL - H = LOWER)
  106. 492 PRINT"[183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183]
  107. 495 [161]#5,GR$:[139]GR$[178]""[167]505
  108. 500 [151]212,0:[153]GR$;:[137]505
  109. 505 [161]RG$:[139]RG$[178]""[167]495
  110. 510 [139]RG$[178]"_"[167][153][199](14):[151]646,TX:[137]105
  111. 511 [139]RG$[178]""[167][153][199](14);:[152]5,[199](14);:[137]505
  112. 512 [139]RG$[178]"    "[167][153][199](142);:[152]5,[199](142);:[137]505
  113. 515 [152]5,RG$;:[137]505
  114. 520 I$[178]"
  115. 525 PRINT"[164][157]";
  116. 530 GETA$:IFA$=""THEN530
  117. 535 IFA$=CHR$(13)THEN570
  118. 540 IFA$=CHR$(20)THEN560
  119. 545 IFLEN(A$)>20THEN530
  120. 550 IF(ASC(A$)AND127)<32THEN530
  121. 555 PRINTA$;:I$=I$+A$:GOTO525
  122. 560 IFLEN(I$)=0THEN530
  123. 565 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO525
  124. 570 PRINT" ":RETURN
  125. 575 B1=56577:B2=56579:TR=0
  126. 580 CD=16:POKEB2,230
  127. 585 A$="6480":NB$="":I$="
  128. 590 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  129. 595 [153]"(null)         (null)OLKS 6480 ATNUTODIAL WAIT         (null)";
  130. 600 [153]"-TANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTAN<";
  131. 605 [153]"(null)PEEKAUD:"BU$"(null)STR$IAL (null)YPE:"DT$(PT)"(null)PEEKOCK S:"BS$"  (null)";
  132. 610 [153]"/TANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANEXP
  133. 615 PP$="          [214]OLKS 6480 [193]UTODIAL         
  134. 620 [153]"VALNTER # TO STR$IAL (null)R PEEK-PEEKAUD,":[153]"STR$-STR$IAL (null)YPE, (null)-PEEKLOCK (null)IZE
  135. 625 PRINT"> [164][157]";
  136. 630 GETA$:IFA$=""THENGOSUB1170:GOTO630
  137. 635 IFA$="B"THENGOSUB350:GOTO585
  138. 640 IFA$="D"THENGOSUB1230:GOTO585
  139. 645 IFA$="S"THENGOSUB285:GOTO585
  140. 650 IFA$=CHR$(13)THEN105
  141. 655 IFA$<"1"ORA$>"9"THEN630
  142. 660 IFA$>"1"ORA$<"9"THEN670
  143. 665 GOTO630
  144. 670 PRINT"";:GOSUB535:IFI$=""THEN105
  145. 675 NB$=I$:TR=TR+1:POKEM1,14
  146. 680 PRINT"[147][193]NY KEY ABORTS!          [212]RIES =";TR
  147. 685 PRINT"          [196]IALING: ";:GOSUB760
  148. 690 PRINT:PRINTTAB(10)"[196]IALING [195]OMPLETE":I=0:POKE198,0:POKE53265,27:T=TI
  149. 695 IFHSTHENPOKEM1,27
  150. 700 IFHS=0THENPOKEM1,40
  151. 705 IF(PEEK(56577)AND16)=0THENZZ=ZZ+1
  152. 715 FORI=1TO100:NEXT
  153. 720 IF(PEEK(56577)AND16)=16THENZZ=0
  154. 725 IFZZ=6THEN745
  155. 730 GETA$:IFA$<>""THEN105
  156. 735 IFTI<T+1200THEN705
  157. 740 PRINTTAB(11)"[206]O [195]ARRIER":GOTO675
  158. 745 PRINTTAB(10)"[195]ARRIER [196]ETECTED":ZZ=0:IFHSANDV7THENPOKEM1,63:GOTO755
  159. 750 IFV7THENPOKEM1,47
  160. 755 GOSUB1210:GOTO470
  161. 760 POKEB1,32:T=TI
  162. 770 IFTI<T+120THEN770
  163. 775 POKEB1,0:T=TI
  164. 780 IFTI<T+50THEN780
  165. 785 L=LEN(NB$):FORI=1TOL:A$=MID$(NB$,I,1):PRINTA$;
  166. 790 IFA$=","THENDL=100:GOSUB325
  167. 795 IFVAL(A$)=0ANDA$<>"0"THENNEXT
  168. 800 A=VAL(A$):IFA=0THENA=10
  169. 805 IFPT=1THENPOKE53265,11:POKE720,A:SYS49233:POKE56577,0:NEXT:RETURN
  170. 810 FORJ=1TOA:POKEB1,32:T=TI
  171. 815 IFTI<T+2THEN815
  172. 820 POKEB1,0:T=TI
  173. 825 IFTI<T+3THEN825
  174. 830 NEXT:T=TI
  175. 835 IFTI<T+20THEN835
  176. 840 IFI=>LTHENRETURN
  177. 845 NEXT:RETURN
  178. 850 Z=TI:GOSUB960:IFATHEN945
  179. 855 GETA$:IFA$<>""THEN105
  180. 860 IF(16ANDPEEK(OH))ANDTI-Z<60THEN855
  181. 865 E=TI:Z=TI-Z:GOSUB960:IFATHEN945
  182. 870 GETA$:IFA$<>""THEN105
  183. 875 IF(16ANDPEEK(OH))=0ANDTI-E<130THEN870
  184. 880 E=TI-E:R=(E-Z)/(E+Z):IFABS(R)<.2THENX=X+1:IFX>3THENPRINT"[194]USY!":DL=100
  185. 885 IFABS(R)<.2THENX=X+1:IFX>3THENPRINT"[194]USY!":DL=100:GOTO830
  186. 890 GOTO850
  187. 895 IF16ANDPEEK(OH)THENA=TI
  188. 900 IFTI>A+45THENPRINT"[196][201][193][204][160][212][207][206][197]":GOSUB980:RETURN
  189. 905 IFTI<W+120THEN895
  190. 910 W=TI+8:S=0:T=TI+630:CT=-1:TL$="":POKEM1,39
  191. 915 IF16ANDPEEK(OH)THENW=TI+8:SYSRC
  192. 930 IFTI<WTHEN915
  193. 935 SYSRC:IFLEN(QR$)<4THENY9=1
  194. 940 IFHSTHENPOKEM1,53:W=45
  195. 945 PRINT:IFHS=0THENPRINT"[195][207][206][206][197][195][212] 300":POKECD,1:POKEOI,40:POKEM1,39+S
  196. 955 PRINT"[195][207][206][206][197][195][212] 1200":POKEM1,55+S:POKECD,1:POKEOI,45:SYSRC
  197. 960 A=TI+15:POKEM1,40+HS:W=3
  198. 965 IF16ANDPEEK(OH)THENPOKEM1,8+HS:A=0
  199. 970 IFTI<ATHEN965
  200. 975 RETURN
  201. 980 DL=30:POKEB1,PEEK(B1)AND223:POKEM1,48:RETURN
  202. 985 POKE53280,11:POKE53281,12:PRINT"":PRINTCHR$(142):PRINT"[147]
  203. 990 [153]"  (null)(null)(null)(null)        (null)(null)(null)(null)                     ";
  204. 995 [153]"   (null)   (null)      (null)   (null)    (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)    ";
  205. 1000 [153]"    (null)   (null)    (null)   (null)     (null)ANDANDANDAND    ANDANDANDSQR    ";
  206. 1005 [153]"     (null)   (null)  (null)   (null)           INT  ABS        ";
  207. 1010 [153]"      (null)   (null)(null)   (null)            INT  ABS        ";
  208. 1015 [153]"       (null)      (null)             INT  ABS        ";
  209. 1020 [153]"        (null)    (null)              INT  ABS        ";
  210. 1025 [153]"         (null)  (null)               INT  ABS        ";
  211. 1030 [153]"          (null)(null) STOPOLKS           INT  ABS STOPERM      ";
  212. 1035 [153]"                          USRUSRUSRUSR   STOP
  213. 1040 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]
  214. 1045 [153]"ONA TERMINAL PRG FOR THE VOLKS 6480 MODEM
  215. 1050 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]
  216. 1055 [153]"MODS BY: GUILL GRACE - 72030,13
  217. 1060 PRINT"THANX  : SCOTT GARNIK
  218. 1065 [153]"         JOHN RIVETT
  219. 1070 PRINT"         JIM KURATOMI
  220. 1075 [153]"            1986 GUILL GRACE 
  221. 1080 RETURN
  222. 1085 BC=PEEK(53280):SC=PEEK(53281):TX=PEEK(646)
  223. 1090 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  224. 1091 PRINT"[221]   [214]OLKS [212]ERM 6480  -  [199]UILL [199]RACE    [146][221]";
  225. 1092 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  226. 1094 PP$="   [214]OLKS [212]ERM 6480  -  [199]UILL [199]RACE    "
  227. 1100 PRINT"      <[198]1> - [195]HANGE BORDER COLOR
  228. 1105 [153]"      <ASC3> - LENHANGE SCREEN COLOR
  229. 1110 PRINT"      <[198]5> - [195]HANGE TEXT COLOR
  230. 1115 [153]"      <ASC7> - ATNPEEK(null)(null)(null)
  231. 1120 A$="":GETA$:IFA$=""THENGOSUB1170:GOTO1120
  232. 1125 IFA$="[136]"THEN105
  233. 1130 IFA$="[133]"THENBC=BC+1:IFBC>15THENBC=0
  234. 1135 IFA$="[134]"THENSC=SC+1:IFSC>15THENSC=0
  235. 1140 IFA$="[135]"THENTX=TX+1:IFTX>15THENTX=0
  236. 1145 IFA$="[135]"THENPRINT"":POKE646,TX:GOTO1090
  237. 1150 POKE53280,BC:POKE53281,SC:GOTO1120
  238. 1155 PRINT"       [208]RESS ANYKEY TO CONTINUE
  239. 1160 [161]A$:[139]A$[178]""[167]1160
  240. 1165 [142]
  241. 1170 :
  242. 1175 [153]"";
  243. 1180 [153]""PP$"WAIT(null)
  244. 1185 PRINT"";
  245. 1190 PRINTPP$"[221]
  246. 1195 [142]
  247. 1210 T[178]TI
  248. 1215 B[178]54272:[151]B[170]1,250:[151]B[170]5,10:[151]B[170]15,200:[139]TI[177]T[170]175[167]1225
  249. 1220 [151]B[170]24,15:[151]B[170]4,21:[129]TM[178]1[164]1250:[130]:[151]B[170]4,20:[137]1215
  250. 1225 [129]CL[178].[164]24:[151]B[170]CL,.:[130]:[137]470
  251. 1230 [139]PT[178]1[167]PT[178]0:[142]
  252. 1235 PT[178]1:[142]
  253. 1240 [153]"LOAD
  254. 1245 IFXMTHENSYS53098
  255. 1250 PRINT"[208]ROGRAM [206]AME? ";:GOSUB520:IFI$=""ORFL=1THEN105
  256. 1255 PRINT"[198]ILE [212]YPE ([208], [211], OR [215])?  [146][157]";
  257. 1260 GETA$:IFA$=""THEN1260
  258. 1265 IFA$="[133]"THEN105
  259. 1270 IFA$="P"THENSA=0:T=1:GOTO1290
  260. 1275 IFA$="S"THENSA=2:T=2:GOTO1290
  261. 1280 IFA$="W"THENSA=0:T=3:GOTO1290
  262. 1285 GOTO1260
  263. 1290 PRINTT$(T)"":OPEN2,8,SA,I$:INPUT#1,E$,EM$,T$,S$
  264. 1295 IFVAL(E$)>0THENPRINT""E$","EM$","T$","S$:CLOSE2:GOTO1250
  265. 1300 IFXMTHEN1360
  266. 1305 SYS49173:POKE51227,T:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO470
  267. 1310 SYS49173:POKE51224,BS:SYS49158:CLOSE2:GOTO470
  268. 1315 PRINT"[147]
  269. 1320 [139]XM[167]1475
  270. 1325 [153]"(null)AVE ATNS? ";:[141]520:[139]I$[178]""[176]FL[178]1[167]105
  271. 1330 [158]49173:[158]49161:[139][194](512)[178]1[167]470
  272. 1335 T$[178]","[170][202](TY$,[194](51227),1)[170]",W
  273. 1340 IFLEFT$(I$,2)<>"1:"ANDLEFT$(I$,3)<>"@0:"ANDLEFT$(I$,3)<>"@1:"THENI$="0:"+I$
  274. 1345 PRINT"[198]ILE [212]YPE: "T$(PEEK(51227))
  275. 1350 OPEN2,8,2,I$+T$:FORX=1TO1300:NEXT:PRINT:SYS61310
  276. 1355 SYS49173:SYS49155:CLOSE2:FORX=1TO1500:NEXT:POKE668,PEEK(667):GOTO470
  277. 1360 MG=52230:UC=0
  278. 1365 GET#5,A$:A=ASC(A$+CHR$(0))
  279. 1370 IFA=21THEN1385
  280. 1375 UC=UC+1:IFUC<500THEN1365
  281. 1380 PRINTTB$"[206]O [206][193][203] - [213]PLOAD [193][194][207][210][212][197][196]":CLOSE2:GOTO470
  282. 1385 SYS52238
  283. 1390 EO=4:UC=0:AC=6:IFPEEK(MG)=0THEN1410
  284. 1395 IFPEEK(MG)=3THENPRINT:PRINTTB$"[213]PLOAD [195]ANCELLED.
  285. 1400 [139][194](MG)[178]4[167][153]:[153]TB$"(null)ORE THAN 10 TRIES
  286. 1405 CLOSE2:PRINT#5,ER$:GOTO470
  287. 1410 FORA=1TO132:NEXT:PRINT#5,CHR$(EO);
  288. 1415 FORA=1TO2000:GET#5,A$:IFA$=""THENNEXT:UC=UC+1:IFUC>11THEN1410
  289. 1420 IFASC(A$+CHR$(0))=ACTHENPRINT:PRINTTB$"[197][207][212] ACKNOWLEDGED":CLOSE2:GOTO470
  290. 1425 PRINT:PRINT"[197][207][212] NOT ACKNOWLEDGED":CLOSE2:GOTO470
  291. 1430 GET#5,A$:IFA$=""THEN1430
  292. 1435 RETURN
  293. 1440 GOSUB1430:IFA$<>"0"THEN1440
  294. 1445 RETURN
  295. 1450 GET#5,A$:IFA$<>""THEN1450
  296. 1455 RETURN
  297. 1460 T=TI
  298. 1465 IFTI<T+65THEN1465
  299. 1470 RETURN
  300. 1475 PRINT"[211]AVE AS ?";:GOSUB520:IFI$=""ORFL=1THEN105
  301. 1480 PRINT"[198]ILE [212]YPE ([208]RG OR [211]EQ) ?  [146][157]";
  302. 1485 GETA$:IFA$=""THEN1485
  303. 1490 IFA$="[133]"THEN105
  304. 1495 IFA$="P"THENSA=0:T=1:GOTO1510
  305. 1500 IFA$="S"THENSA=2:T=2:GOTO1510
  306. 1505 GOTO1485
  307. 1510 SYS53098:MG=52230
  308. 1515 PRINTT$(T)"":OPEN2,8,2,"A0:"+I$+","+A$+",W":INPUT#1,E$,EM$,T$,S$
  309. 1520 POKEMG,2:SYS52227
  310. 1525 ER=PEEK(MG)
  311. 1530 IFER=2THENPRINT:PRINT"ABORTED
  312. 1535 [139]ER[178]0[167][153]:[153]"SUCCESSFUL
  313. 1540 IFER=1THENPRINT:PRINT"SYNC LOST
  314. 1545 [139]ER[178]3[167][153]:[153]"CANCELLED
  315. 1550 IFER=4THENPRINT:PRINT"SORRY, MORE THAN 10 TRIES
  316. 1555 [153]TB$:[160]2
  317. 1565 [137]470
  318. 1575 [160]1:[160]15:[159]15,8,15
  319. 1585 [153]"LOAD":[137]1755
  320. 1590 [159]1,8,0,"$0":[153]"LOAD
  321. 1595 PRINT"[147]     [211]PACE TO PAUSE, [209] TO QUIT
  322. 1600 [141]1880:[137]1610
  323. 1605 [161]#1,A$,B$
  324. 1610 [161]#1,A$,B$
  325. 1615 [161]#1,A$,B$
  326. 1620 C[178]0
  327. 1625 [139]A$[179][177]""[167]C[178][198](A$)
  328. 1630 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
  329. 1635 [153]"     "[202]([196](C),2);[163]8);"WAIT ";
  330. 1640 [161]#1,B$:[139]ST[179][177]0[167]1685
  331. 1645 [139]B$[179][177][199](34)[167]1640
  332. 1650 [161]#1,B$:[139]B$[179][177][199](34)[167][153]B$;:[137]1650
  333. 1655 [161]#1,B$:[139]B$[178][199](32)[167]1655
  334. 1660 [153][163]24);:C$[178]"
  335. 1665 C$=C$+B$:GET#1,B$:IFB$<>""THEN1665
  336. 1670 PRINT"  "LEFT$(C$,3)
  337. 1675 GETT$:IFT$<>""THENGOSUB1695
  338. 1680 IFST=0THEN1610
  339. 1685 PRINT" BLOCKS FREE
  340. 1690 [160]1:[141]1155:[137]1755
  341. 1695 [139]T$[178]"Q"[167][160]1:[160]15:[141]1155:[137]1755
  342. 1700 [139]T$[178]" "[167][141]1870
  343. 1705 [161]T$:[139]T$[178]""[167]1695
  344. 1710 [142]
  345. 1715 C$[178]"":[153]"";:[153]"> TOCMD";
  346. 1725 [141]520:[139]I$[178]""[167]1740
  347. 1730 C$[178]I$
  348. 1735 [152]15,C$
  349. 1740 [153]"";:[137]1746
  350. 1745 [153]"";
  351. 1746 [132]15,A,A$,A1,A2:[153]:[153]A;"CMD, "A$;",";A1;",";A2
  352. 1750 [141]1155
  353. 1755 [153]"WAIT
  354. 1756 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  355. 1757 PRINT"[221]  [196]ISK [198]UNCTIONS  -  [214]OLKS TERM 6480  [146][221]";
  356. 1758 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  357. 1759 PP$[178]"  STR$ISK ASCUNCTIONS  -  (null)OLKS TERM 6480  
  358. 1760 PRINTSPC(12)"[196] - [196]IRECTORY
  359. 1765 [153][166]12)"> - STR$ISK LENOMMAND
  360. 1770 PRINTSPC(12)"[198] - [198]REE [194]LOCKS
  361. 1775 [153][166]12)"(null) - LENHECK VALRROR
  362. 1780 PRINTSPC(6)"<[195][210]> - [210]ETURN TO [205]AIN [205]ENU
  363. 1785 [161]A$:[139]A$[178]""[167][141]1170:[137]1785
  364. 1790 [139]A$[178]"D"[167]1590
  365. 1795 [139]A$[178]"F"[167]1820
  366. 1800 [139]A$[178]">"[167]1715
  367. 1805 [139]A$[178][199](13)[167][160]1:[160]15:[159]1,8,15:[137]105
  368. 1810 [139]A$[178]"S"[167]1745
  369. 1815 [137]1785
  370. 1820 D[178]8:D$[178]"0
  371. 1825 PRINT#15,"I"+D$:OPEN1,8,0,"$"+D$+":!#$%&
  372. 1830 [129]D[178]1[164]34:[161]#1,X$:[130]
  373. 1835 [161]#1,X$:X[178][195](X$):[139]X[167]X[178][198](X$)
  374. 1840 [161]#1,X$:Y[178][195](X$):[139]Y[167]Y[178][198](X$)
  375. 1845 L[178]X[170]Y[172]256:[153]"";:[153]"";L;"BLOCKS FREE
  376. 1850 GOSUB1155:CLOSE1:CLOSE15:OPEN15,8,15:GOTO1585
  377. 1855 INPUT#15,E,E$,E1,E2
  378. 1860 IFE=0THENE=(STAND191):E$="*ST*
  379. 1865 [142]
  380. 1870 [161]T$:[139]T$[178]""[167]1870
  381. 1875 [142]
  382. 1880 [161]#1,A$,B$
  383. 1885 [161]#1,A$,B$
  384. 1890 [161]#1,A$,B$
  385. 1895 C[178]0:F[178]0
  386. 1900 [139]A$[179][177]""[167]C[178][198](A$)
  387. 1905 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
  388. 1910 [153]"     "[202]([196](C),2);[163]8);"WAIT ";
  389. 1915 [161]#1,B$:[139]ST[179][177]0[167][142]
  390. 1920 [139]B$[179][177][199](34)[167]1915
  391. 1925 [161]#1,B$:[139]B$[179][177][199](34)[167][153]B$;:[137]1925
  392. 1930 [161]#1,B$:[139]B$[178][199](32)[167]1930
  393. 1935 [153][163]24);:C$[178]"
  394. 1940 C$=C$+B$:GET#1,B$:IFB$<>""THEN1940
  395. 1945 PRINT"  "LEFT$(C$,3)
  396. 1950 PRINT"     [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":RETURN
  397. 2000 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  398. 2005 PRINT"[221][152]   [214]OLKS[152] [212]ERM[152] [144]6480[152]  [155]-[152]  [199]UILL[152] [199]RACE[152]    [144][221]";
  399. 2010 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  400. 2015 PP$="[152]   [214]OLKS[152] [212]ERM[152] [144]6480[152]  [155]-[152]  [199]UILL[152] [199]RACE[152]    [144]
  401. 2020 [153]
  402. 2025 [153]"   LEFT$ELLO AND WELCOME TO VERSION RIGHT$RIGHT$ OF
  403. 2030 PRINT" [214]OLKS [212]ERM 6480. [201] HOPE THAT THIS PRG
  404. 2035 [153]" IS USEFUL TO YOU AND THAT IT CLEARS
  405. 2040 PRINT" UP THE NASTY RUMMORS ABOUT [214]OLKS AND
  406. 2050 [153]" THEIR PRODUCTS. RIGHT$ SAY THIS BECAUSE 
  407. 2055 PRINT" [201] BELIEVE THE THE [214]OLKS6480 IS A VERY
  408. 2060 [153]" UNDERRATED MODEM.
  409. 2065 PRINT
  410. 2080 PRINT"   [193]S [201] WORK IN A WAREHOUSE AND DON'T
  411. 2095 [153]" REALLY WORK ON COMPUTERS THAT MUCH,
  412. 2100 PRINT" [201]'M ASKING YOU, THE USER, TO LET ME
  413. 2105 [153]" KNOW WHAT YOU THINK OF MY PROGRAMING.
  414. 2110 PRINT" [215]RITE TO ME AT;
  415. 2115 [153]"           (null)R. (null). CHR$. CHR$RACE
  416. 2120 PRINT"           284 [205]ILLWOOD [210]D.
  417. 2125 [153]"             (null)ORONTO, (null)NT.
  418. 2130 PRINT"                [195]ANADA
  419. 2135 [153]"                (null)4(null)-1MID$8
  420. 2138 PRINT"[155]             [208]RESS ANYKEY!";
  421. 2140 GETA$:IFA$=""THENGOSUB1170:GOTO2140
  422. 2145 ZX=1:GOTO105
  423.